home *** CD-ROM | disk | FTP | other *** search
/ PD ROM 1 / PD ROM Volume I - Macintosh Software from BMUG (1988).iso / Telecommunications / Updates⁄New / MicroPhone 2 Scripts / CallLogMP2 / Grab Modem < prev    next >
Encoding:
Text File  |  1988-06-11  |  1.1 KB  |  39 lines  |  [TEXT/ttxt]
  1.  Modem File = Standard (Call Log)
  2.  Modem Script Name = Grab Modem
  3.  
  4. 1   If Expression  "=online=true"
  5. 2     Wait Seconds  "=1"
  6. 3     Send Text String  "+++"
  7. 4     Wait Seconds  "=1"
  8. 5     When Line Contains  "OK"
  9. 6       Wait Seconds  "=2"
  10. 7       Return Success 
  11. 8     Or When Seconds Have Passed  "=5"
  12. 9       Send Text String  "ATZ^M"
  13. 10      When Line Contains  "OK"
  14. 11        Wait Seconds  "=2"
  15. 12        Return Success 
  16. 13      Or When Seconds Have Passed  "=5"
  17. 14        Alert * OK  "The modem is not responding. Please check connections."
  18. 15        Return Failure 
  19. 16      End When
  20. 17    End When
  21. 18  Else
  22. 19    Send Text String  "ATZ^M"
  23. 20    When Line Contains  "OK"
  24. 21      Wait Seconds  "=2"
  25. 22      Return Success 
  26. 23    Or When Seconds Have Passed  "=5"
  27. 24      Wait Seconds  "=1"
  28. 25      Send Text String  "+++"
  29. 26      Wait Seconds  "=1"
  30. 27      When Line Contains  "OK"
  31. 28        Wait Seconds  "=2"
  32. 29        Return Success 
  33. 30      Or When Seconds Have Passed  "=5"
  34. 31        Alert * OK  "The modem is not responding. Please check connections."
  35. 32        Return Failure 
  36. 33      End When
  37. 34    End When
  38. 35  End If
  39.